home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 2 / 64er_Magazin_Sonderheft_02_86-02_1986_Markt__Technik_de.d64 / listing 9 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  63 lines
  1. 1000 rem *** vierfarben-sprite ***
  2. 1010 :
  3. 1020 :
  4. 1030 rem ** ausgabe programmeldung
  5. 1040 :
  6. 1050 print "[147]bitte warten"
  7. 1060 :
  8. 1070 :
  9. 1080 rem ** sprite-daten laden
  10. 1090 :
  11. 1100 for n = 896 to 958
  12. 1110 :   read spdta
  13. 1120 :   poke n, spdta
  14. 1130 next n
  15. 1140 :
  16. 1150 data   1, 85, 64,  1, 85, 64
  17. 1160 data   1, 20, 64,  1, 20, 64
  18. 1170 data   1, 85, 64,  1, 20, 64
  19. 1180 data   1, 65, 64,  1, 85, 64
  20. 1190 data   0, 60,  0,  0, 60,  0
  21. 1200 data  62,170,188, 62,170,188
  22. 1210 data  48,170, 12, 16,170,  4
  23. 1220 data  20,130, 20, 20,130, 20
  24. 1230 data  16,195,  4,  0,195,  0
  25. 1240 data   0, 65,  0,  1, 65, 64
  26. 1250 data   1, 65, 64
  27. 1260 :
  28. 1270 :
  29. 1280 rem ** sprite-register vorbereiten
  30. 1290 print "[147]"      :rem schirm loesch.
  31. 1310 poke 2040,14   :rem datenzeiger
  32. 1320 vic = 53248    :rem grafikbaustein
  33. 1330 :
  34. 1340 poke vic,160   :rem horiz.position
  35. 1350 poke vic+1,129 :rem vertk.positian
  36. 1360 :
  37. 1370 poke vic+23,1  :rem verlaengerung
  38. 1380 poke vic+29,1  :rem verbreiterung
  39. 1390 :
  40. 1400 poke vic+28,1  :rem mehrfarbmodus
  41. 1410 poke vic+33,0  :rem hgrund schwarz
  42. 1420 poke vic+37,7  :rem mfreg 0 gelb
  43. 1430 poke vic+39,5  :rem sprite 0 gruen
  44. 1440 poke vic+38,6  :rem mfreg 1 blau
  45. 1450 :
  46. 1460 poke vic+21,1  :rem sprite 0 ein
  47. 1470 :
  48. 1480 :
  49. 1490 rem ** prog.ende mit tastendruck
  50. 1500 :
  51. 1510 get kp$
  52. 1520 if kp$ = "" then 1510
  53. 1530 :
  54. 1540 :
  55. 1550 rem ** ruecksetzen des registers
  56. 1560 :
  57. 1570 poke vic+21,0  :rem sprite   aus
  58. 1580 poke vic+28,0  :rem mehrfarb.aus
  59. 1590 poke vic+29,0  :rem verbreit.aus
  60. 1600 :
  61. 1610 :
  62. 1620 end
  63.